home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / MCSECURE.ZIP / MCSECURE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-08-25  |  2.2 KB  |  89 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm frmSecurity 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "MC SECURITY"
  6.    ClientHeight    =   5925
  7.    ClientLeft      =   1230
  8.    ClientTop       =   1965
  9.    ClientWidth     =   8775
  10.    Height          =   6615
  11.    Icon            =   "MCSECURE.frx":0000
  12.    Left            =   1170
  13.    LinkTopic       =   "MDIForm1"
  14.    Top             =   1335
  15.    Width           =   8895
  16.    Begin VB.Menu mnu_Serialization 
  17.       Caption         =   "&Serialization"
  18.    End
  19.    Begin VB.Menu mnu_HashCoding 
  20.       Caption         =   "&Hash"
  21.    End
  22.    Begin VB.Menu mnu_RegistrationKey 
  23.       Caption         =   "&Registration key"
  24.    End
  25.    Begin VB.Menu mnu_Encryption 
  26.       Caption         =   "&Encryption"
  27.    End
  28.    Begin VB.Menu mnu_Crc 
  29.       Caption         =   "&Crc"
  30.    End
  31.    Begin VB.Menu mnu_GZIP 
  32.       Caption         =   "&GZip"
  33.    End
  34.    Begin VB.Menu mnu_Ruby 
  35.       Caption         =   "&Ruby Mark 5"
  36.    End
  37.    Begin VB.Menu mnu_Exit 
  38.       Caption         =   "&Exit"
  39.    End
  40.    Begin VB.Menu mnu_About 
  41.       Caption         =   "&About"
  42.       WindowList      =   -1  'True
  43.       Begin VB.Menu mnu_Dummy1 
  44.          Caption         =   "MC SECURITY"
  45.       End
  46.    End
  47. Attribute VB_Name = "frmSecurity"
  48. Attribute VB_Creatable = False
  49. Attribute VB_Exposed = False
  50. Option Explicit
  51. Private Sub MDIForm_Load()
  52.    mnu_About.Caption = Chr$(8) & mnu_About.Caption
  53. End Sub
  54. Private Sub mnu_Crc_Click()
  55.    Load frmCrc
  56.    frmCrc.Show
  57. End Sub
  58. Private Sub mnu_Dummy1_Click()
  59.    Load frmAbout
  60.    frmAbout.Show
  61. End Sub
  62. Private Sub mnu_Encryption_Click()
  63.    Load frmEncryption
  64.    frmEncryption.Show
  65. End Sub
  66. Private Sub mnu_Exit_Click()
  67.    Unload Me
  68. End Sub
  69. Private Sub mnu_GZIP_Click()
  70.    Load frmGZip
  71.    frmGZip.Show
  72. End Sub
  73. Private Sub mnu_HashCoding_Click()
  74.    Load frmHashCoding
  75.    frmHashCoding.Show
  76. End Sub
  77. Private Sub mnu_RegistrationKey_Click()
  78.    Load frmRegistrationKey
  79.    frmRegistrationKey.Show
  80. End Sub
  81. Private Sub mnu_Ruby_Click()
  82.    Load frmRuby
  83.    frmRuby.Show
  84. End Sub
  85. Private Sub mnu_Serialization_Click()
  86.    Load frmSerialization
  87.    frmSerialization.Show
  88. End Sub
  89.